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011030 


000000 


598 


011032 


000000 


599 


0110^4 


onoooo 


600 


011036 


0' lie 2 


601 


011040 




602 


011040 


000 


603 


011041 




604 


011041 


001 


605 


011042 


000000 


606 


011044 


177570 


607 


011046 


177570 


608 






609 






610 






611 






612 




000000 


613 




100000 


614 




040000 


615 




020000 


616 




020000 


617 






618 


01 1050 


JOOOOO 


619 


011052 


-wOCOO 


620 


oiioe.'- 


.iOOOOO 


621 


01 1056 


JOOOOO 


522 


O'lOeC 


000000 


623 






624 


01 '062 


000000 


625 


©'"Ofe-; 


000000 


B26 


011066 


000000 


S27 


011070 


000000 


t.2a 






629 


011072 


'77560 


530 


01 1074 


177562 


531 


01 1076 


177564 


632 


011100 


177566 


633 






634 




000001 



; 0L11 INTERFACE SERVICE PARAMS 

.sllOCU 

;ISR NAME 

;BUS ADDRESS 

{VECTOR ADDRESS 

{PRIORITY 

IPARAM #1 

{PARAM #2 

;PARAM HZ 

•.INITIAL READ DATA ADDRESS 

{INITIAL XMIT DATA ADDRESS 

{LINE SETTLE DELAY FLAG 

JADDR OF BIN TO OCT TYPE ROUTINE 
{TIMER 

{ADDR OF START OF PROQRAM 

{TRANSMITTER TERMINATING CHAR. 

{RECEIVER TERMINATING CHAR. 



{ CONSTANTS 4- WORKING STORAGE 

STAT«RQ 

XFLQb 100000 5 XMIT COMPLETE FLAG 

RFLG«40000 !RCV COMPLETE FLAG 

DSFLGa20000 {DATA SET STATUS CHANGE FUG 

BITISaaOOOO {INHIBIT PRINTOUTS 

{SAVED XMIT CSR 

{SAVED RCV CSR 

{RCV CSR SAVED ON ERROR 

{RCV DATA REG SAVED ON ERROR 

{RCV CSR SAVEP ON DS CHANGE 



DL115 


.ASCI2 


/DL / 


BA: 


175610 




RIV: 


300 




PRIORJ 


200 




PARAM1 ! 


000000 




PARAM2 : 


000000 




PARAM3 5 


177777 




IROA: 


.WORD 





IXDA! 


.WORD 





settle: 


.WORD 







.WORD 





B2016: 


.WORD 





time: 


.WORD 







.WORD 







.WORD 


START 


TX.TERM 


: 






.BYTE 


000 


RX.TERMJ 






.BYTE 


001 


FLAG: 


.WORD 





SWR: 


177570 




DISPLAY! 177570 





SXCSR: 





SRCSR: 





ERCSR: 





ERDBR: 





DSSTAT! 





XCC: 





RCC: 





RDA: 





XDA: 





TKS: 


177560 


TKB: 


177562 


TPS: 


177564 


TPB: 


177566 



{XMIT CHAR COUNT 
{RCV CHAR COUNT 
{RCV DATA ADDR. 
{XMIT DATA ADDR. 



FULL.DUPLEX"000001 
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SEQ 0014 
SEQ 0014 



635 








636 








537 








638 


01 M02 


D00240 




639 


0'M04 


0'7700 


177734 


640 


011 -^ ■'C 


042700 


177400 


641 


01^'^^ 


013702 


011006 


642 


01'12C 


012722 


013662 


643 


C ■ 1 24 


: 3722 


011010 


64« 


0''i iC 


J 12722 


013544 


645 


• ' - 34 


013722 


011010 


646 


D- -140 


013704 


011004 


64'' 


0-1144 


013714 


011012 


648 


01M50 


013702 


011014 


649 


011154 


042702 


000001 


650 


011160 


010264 


000004 


651 








652 








653 








es'i 








655 








656 








357 








658 


01 1 164 


005037 


011032 


659 


011170 


005037 


013054 


660 


011174 


005037 


013060 


661 


011200 


032700 


000001 


662 


0^1204 


001402 




663 


01 1206 


000137 


011362 


664 


011212 


032700 


000002 


665 


011216 


001402 




666 


011220 


000137 


011254 


667 


011224 


032700 


000010 


668 


011230 


001402 




669 


011232 


000137 


011460 


670 


011236 


032700 


000004 


671 


011242 


001402 




672 


011244 


000137 


011710 


673 


011250 


000000 




674 


011252 


000776 




675 








676 








677 








678 








679 








680 








681 








682 








683 








684 








685 








686 








687 








688 








689 


011254 


104416 




690 


011236 


004T3? 


013402 



START : 



DL11-X INTERFACE SERVICE ROUTINE 

NOP 

@SWR, RO {SETUP MODE IN RO 
#177400. RO {STRIP UUNK 
{SETUP 
{ INTERRUPT 
{VECTORS 



MOV 
BIC 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
MOV 



RIV 

jS^RISR, 

PRIOR. 

PRIOR, 

BA, 

PARAM 1 

PARAM2 , R2 

#0001, R2 

R2, XCSR(R4} 



R2 

(R2)+ 

(R2) + 

(R2)-i- 

(R2)-«- 

R4 

l»RCSR 



SETUP BUS ADDR XNOE% 
SETUP VARIABLES 



IN CSR'S 



ROUTINE USED TO GOTO 
SUBROUTINE DEPENDENT 
ON MODE SELECTED. 



is: 
2$: 
3$: 
4$: 



CLR 


TIME 


CLR 


DELAY 


CLR 


STOP 


BIT 


#OWO,MODE 


BEQ 


1$ 


UMP 


$0W0 


BIT 


#OWI,MODE 


BEQ 


2$ 


JMP 


SOW I 


BIT 


# I LB, MODE 


BEQ 


3$ 


UMP 


$ILB 


BIT 


^X LB, MODE 


BEQ 


4$ 


JMP 


SXL3 


HALT 




BR 


.-a 



ROUTINE USED IF "ONE WAY IN" MODE WAS SELECTED. 
NOTE THAT WHEN IN THIS MODE HALF DUPL,EX IS THE 
ONLY MODE AVAILABLE. 

"ONE WAY IN" MEANS THAT ONLY THE RECEIVER IS 
ENABLED. THE TRANSMITTER IS NEVER "TURNED ON". 



SOWl: 



KBDIN 
JSR 



PC.STARTR 
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SEQ 001 S 
SEQ 0015 



691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 



011262 
011266 
011270 
011276 
011300 
011302 
011306 
011310 
011314 

011316 
011324 
011326 
011332 
011336 
011344 
011346 
011354 
011360 



011362 
011364 
011370 
011374 
011400 
011402 
01 1410 
011412 
011414 
011420 
011422 
011426 
011430 
011434 
011442 
011444 
011452 
011456 



032700 
001013 
023727 
103771 
01 1402 
016403 
104001 
005037 
000762 

032777 
001002 
004737 
042700 
032777 
001405 
012737 
000137 
000735 



104416 
004737 
005037 
032700 
001013 
023727 
103771 
01 1402 
016403 
104001 
005037 
000762 
042700 
032777 
001405 
012737 
000137 
000741 



040000 
011032 

000004 
011032 



012300 
040000 
000020 

011360 
012140 



011456 
012140 



1$: 



177520 2$: 

3$: 
177500 

013056 



BIT 
BNE 
CMP 
BLO 
MOV 
MOV 
HLT 
CLR 
BR 

BIT 
BNE 
USR 
BIC 
BIT 
BEQ 
MOV 
JMP 
BR 



#RFLG,STAT 

2$ 

TIME, #100 

1$ 

@RCSR,R2 

XCSR(R4),R3 

1 

TIME 

1$ 

#NQDAT,«>SWR 

3$ 

PC.TESTD 

#RFLG,STAT 

(^LOOP,@SWR 

4$ 

#4$, BACK 

EOP 

SOW I 



ROUTINE USED IF "ONE WAY OUT" WAS SELECTED. 

NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY 

MODE AVAILABLE. 

"ONE WAY OUT" MEANS THAT ONLY THE TRANSMITTER IS 

ENABLED. THE RECEIVER IS NEVER "TURNED ON. 

<» «!«««# «i(i««4i«i(i4i««««i$ii|t««i$«««««fi)i«««««««i»««i(i4ii)i«««iti«4i4i«4i«««4i«4i«4iiji«««««« 



$0W0: 



013062 
011032 
100000 

011032 000100 



100000 
000020 



KBDIN 




JSR 


PCSTARTX 


CLR 


TIME 


BIT 


#XFLG,STAT 


BNE 


2$ 


CMP 


TIME, #100- 


BLO 


1$ 


MOV 


#RCSR,R2 


MOV 


XCSR(R4),R3 


HLT 


1 


CLR 


TIME 


BR 


1$ 


BIC 


#XFLG,STAT 


BIT 


#LOOP,@SWR 


BEO 


3$ 


MOV 


#3$, BACK 


JMP 


EOP 


BR 


$0W0 
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ROUTINE USED IF INTERNAL LOOP BACK" WAS SELECTED. 

NOTE THAT WHEN IN THIS MODE; HALF DUPLEX IS THE 

ONLY MODE AVAILABLE. 

"INTEFx'.JAL LOOP BACK" MEANS THAT THE RECEIVER IS "TURNED ON" 

AND A COMLPETE MESSAGE IS RECEIVED. IF DATA IS TO BE CHECKED 

IT IS; IF "END PASS" IS DESIRED: IT IS GIVEN. 

THEN THE TRANSMITTER IS ENABLED. AFTER THE WHOLE MESSAGE 

IS TRANSMITTED; THE CYCLE IS REPETED AS ABOVE. 

«««««««««)t:it>«4<««««««4.4>»>(i««iti«itti«i«ltil«iiti««>i|ti»i|iiii««««««4i«)(i«««««««««««««>it«««*»4l 



SEQ 0016 
SEQ 0018 



"52 
'53 
'54 
755 
'56 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 



7 '5 
-"6 



780 
781 
782 
783 
784 
^85 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 



011460 
011462 
01 1466 
:i 1472 
011476 
011500 
011506 
011510 
011512 
011516 
011520 
01 1524 
011526 
011534 
011536 
011542 
011546 
011554 
011556 
011564 
011570 
011576 
011600 
011604 
011610 
011614 
011616 
C11620 
011624 
011626 
01 1632 
01 1634 
01 1640 
01 1644 
011650 
01 1652 
011660 
011662 
01 1664 
011670 
011672 
011676 
011700 
011704 



104416 
004737 
005037 
032700 
001013 
023727 
103771 
01 1402 
016403 
104001 
005037 
000762 
032777 
001002 
004737 
042700 
032777 
001405 
012737 
000137 
032777 
001416 
013702 
013703 
010337 
112223 
001376 
112743 
005203 
112723 
105023 
005037 
004737 
032700 
001013 
023727 
103771 
01 1402 
016403 
104001 
005037 
000762 
042700 
000137 



013402 
011032 
040000 

011032 000100 



1$: 



177310 2$: 



177246 4$: 



011032 

000200 

012300 
040000 
000020 

011570 
012140 
000400 

011020 
011022 
011070 

000177 

000177 

011032 
013062 
100000 

011032 000100 

000004 

011032 

100000 
011460 



KBDIN 

USR 

CLR 

BIT 

BNE 

CMP 

BLO 

MOV 

MOV 

HLT 

CLR 

BR 

BIT 

BNE 

USR 

BIC 

BIT 

BEO 

MOV 

UMP 

BIT 

BEQ 

MOV 

MOV 

MOV 

MOVB 

BNE 

MOVB 

INC 

MOVB 

CLRB 

CLR 

USR 

BIT 

BNE 

CMP 

BLO 

MOV 

MOV 

HLT 

CLR 

BR 

BIC 

UMP 



PC.STARTR 

TIME 

#RFLG,STAT 

2$ 

TIME, #100 

1$ 

@RCSR.R2 

XCSR(R4),R3 

1 

1$ 

#NODAT,@SWR 

3$ 

PCTESTD 

#RFLG,STAT 

#LOOP,@SWR 

4$ 

#4$ , BACK 

EOP 

#400, 9SWR 

7$ 

IRDA, 

IXDA, 

R3, 

(R2) + 

.-2 

#177, 

R3 

#177, 

(R3) + 

TIME 

PCSTARTX 

#XFLG,STAT 

6$ 

TIME, #100 

5$ 

@RCSR,R2 

XCSR(R4),R3 

1 

TIME 

5$ 

#XFLG,STAT 

$ILB 



.irtii. 



R2 
R3 
XDA 
(R3)-f 

-(R3) 

(R3)+ 



;USE EXTERNAL DATA? 

;BR IF NO 

;SET POINTER 

;SET POINTER 

; SETUP XMIT DATA ADDR 

;MOVE INPUT TO OUTPUT 

;LOOP IF NOT ZERO CHAR 

;IN«>ERT A FILL CHAR 

;BUMP ADDRESS 

; INSERT ANOTHER FILL 

; INSERT ZERO CHAR 
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SEQ 0017 
SEQ 0017 



796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 



011710 
011712 
011720 
011722 
011726 
011732 
011736 
011742 
011744 
011750 
011752 
011760 
011762 
011764 
011770 
011772 
011776 
012000 
012006 
012010 
012014 
012020 
012022 
012030 
012032 
012036 
012040 
012046 
012050 
012052 
012056 
012060 
012064 
012066 
012072 
012076 
012102 
0121 10 
012112 
0121 16 
012124 
012126 
012134 



104416 
032737 
001402 
004737 
004737 
005037 
032700 
001016 
032700 
001024 
023727 
103766 
011402 
016403 
104001 
005037 
000757 
032737 
001356 
042700 
004737 
000746 
032737 
001420 
032700 
001013 
023727 
103765 
01 1402 
016403 
104001 
005037 
000756 
042700 
042700 
005037 
032777 
001002 
004737 
032777 
001671 
012737 
000137 



000001 011014 

013402 
013062 
011032 
100000 

040000 

011032 000100 

000004 

011032 

000001 011014 

100000 
013402 



$XLB: 

1$: 
2$: 
7S: 



ROUTINE USED IF "EXTERNAL LOOP BACK" WAS SELECTED. 

EITHER HALF OR FULL DUPLEX MAY BE SELECTED IN THIS MODE. 

"EXTERNAL LOOP BACK" MEANS THAT THE TRANSMITTER IS FIRST 

TURNED ON (IF HALF DUPLEX) AND THE WHOLE MESSAGE IS TRANSMITTED? 

THEN THE RECEIVER IS ENABLED. AFTER THE WHOLE MESSAGE IS RECEIVED 

DATA WILL THEN BE CHECKED IF DESIRED AND END PASS WILL 

BE GIVEN IF DESIRED. THEN THE CYCLE IS REPEATED 

AS ABOVE. IF RUNNING IN FULL DUPLEX THE PROGRAM 

WAITS FOR BOTH THE RECEIVER AND TRANSMITTER TO 

FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER. 



000001 
100000 
011032 

000004 

011032 

100000 
040000 
011032 
000200 

012300 
000020 

011710 
012140 



011014 4$: 



6$: 
8S: 



176720 5S: 
013056 



KBDIN 

BIT 

BEQ 

JSR 

USR 

CLR 

BIT 

BNE 

BIT 

BNE 

CMP 

BLO 

MOV 

MOV 

HLT 

CLR 

BR 

BIT 

BNE 

BIC 

USR 

BR 

BIT 

BEQ 

BIT 

BNE 

CMP 

BLO 

MOV 

MOV 

HLT 

CLR 

BR 

BIC 

BIC 

CLR 

BIT 

BNE 

JSR 

BIT 

BEQ 

MOV 

JMP 



#FULL. DUPLEX, PARAM2 

1$ 

PCSTARTR 

PC.STARTX 

TIME 

#XFLG,STAT 

3S 

#RFLG,STAT 

4$ 

TIME, #100 

2$ 

@RCSR,R2 

XCSR(R4),R3 

1 

TIME 

2$ 

ti' FULL. DUPLEX, PARAM2 

7$ 

<!?XFLG,STAT 

PCSTARTR 

2$ 

^ FULL . DUPLEX , PARAM2 

8$ 

#XFLG,STAT 

6$ 

TIME, #100 

4$ 

@RCSR.R2 

XCSR(R4),R3 

1 

TIME 

4$ 

#XFLG,STAT 

i^RFLG.STAT 

TIME 

il'NODAT.^SWR 

5$ 

PCTESTD 

#LOOP,@SWR 

$XLB 

#$XLB,BACK 

EOP 
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852 
853 
854 
855 
856 
857 
858 
859 
850 



862 
863 
864 
865 
866 
867 
868 
869 
870 
671 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 



012140 
012140 
012144 
012152 
012160 
012166 
012174 
012200 
012204 
012210 
012214 
012220 
012224 

012226 
012226 
012232 
012236 
012242 
012246 
012252 
012256 
012264 
012272 
012276 



012300 
012304 
012306 
012314 
012316 
012322 
012326 
012330 
012334 
012340 
012344 
012346 
012350 
012354 
012356 
012362 
012364 
012370 
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ROUTINE TO RETURN 
TO MONITOR FOR 
END PASS. 



SEQ 0018 
SEQ 0018 



104414 
016437 
042737 
042764 
012766 
010037 
010137 
010237 
010337 
010437 
010537 
000207 



013700 
013701 
013702 
013703 
013704 
013705 
012737 
053764 
000177 
000000 



013746 
001413 
032777 
001007 
104400 
004077 
005746 
104400 
013701 
013702 
122122 
001776 
123741 
001447 
122742 
001005 
010237 
104400 



000340 
000004 
177677 
000100 
012226 
013040 
013042 
013044 
013046 
013050 
013052 



013040 
013042 
013044 
013046 
013050 
013052 
177777 
012276 
000560 



012276 
012276 
000004 
000002 



STPS,PRTY7 



013054 
000004 



QTPIE: 



MOV 
BIC 
BIC 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
UMP 
000000 



XCSR(R4), QTPIE 

**C<TIE>, QTPIE 

#TIE,XCSR(R4) 

CENTER, 2(SP) 

RO,SAVRO 

R1 ,SAVR1 

R2,SAVR2 

R3,SAVR3 

R4,SAVR4 

R5,SAVR5 

PC 



SAVRO.RO 

SAVR1,R1 

SAVR2.R2 

SAVR3,R3 

SAVR4,R4 

SAVR5,R5 

#-1, DELAY 

QTPIE, XCSR(R4) 

©BACK 



;SET PS PRIORITY TO 7 

;SAVE TX CSR 

jCLEAR ALL BUT TX IE. 

JCLEAR TX IE (EVEN IF IT WASN'T SET) 

•,SET FOR RETURN IF SW 14=1 

JSAVE REGISTER 

JSAVE REGISTER 1 

jSAVE REGISTER 2 

;SAVE REGISTER 3 

;SAVE REGISTER 4 

jSAVE REGISTER 5 

{RETURN TO CONTROL PROGRAM 



{RESTORE RO 

{RESTORE R1 

{RESTORE R2 

{RESTORE R3 

{RESTORE R4 

{RESTORE R5 

{IF ORGINAULY SET; SET TX IE 



SUBROUTINE TO CHECK 
RECEIVER DATA. 



020000 176530 



012500 
176502 



012561 
011022 
011020 



011040 
000002 
012372 



TSTDAT! 



MOV 


ERDBR, 


-(SP) 


BtQ 


TSlDAf 




BIT 


#BIT13, 


@SWR 


BNE 


TSTDAT 




TYPE 


,MSGO 




JSR 


R0,9B2016 


TST 


-(SP) 




TYPE 


,MSG1 




MOV 


IXDA, 


R1 


MOV 


IRDA, 


R2 


CMPB 


(R1)+, 


(R2)* 


BEQ 


SCAN4 




CMPB 


TX.TERR 


,-(Rl) 


BEQ 


TESTDX 




CMPB 


#002. -(RS) 


BNE 


a$ 




MOV 


Ra,i$ 




TYPE 







{WAS THERE A RECEIVE ERROR? 

{DK IF NO 

{INHIBIT PRINTOUTS? 

{BR IF YES 

{<15><12>THERE WAS A RECEIVE ERROR. RBUF« 

{PRINT CONTENTS OF RBUF 

{<15><12> 

{SETUP XMIT DATA AODR 

{SETUP RCV DATA ADDR 

{DATA OK ? 

{BR IF OK 

{IS IT END OF DATA 

{BR IF YES 
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SEQ 0019 
SEO 0019 



908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 



936 
937 

938 
939 
940 
941 
942 
943 
944 



012372 
012374 
012376 
012376 
012400 
012402 
012406 
012410 
012412 
012416 
012420 
012422 
012430 
012432 
012436 
012444 
012446 
012450 
012'a'^4 
012462 
012464 
012466 
012470 
012472 
012474 
012476 

012500 . 

012561 

012564 

01261 1 

012634 

0127C3 

012766 

013040 
013042 
013044 
013045 
013050 
013052 
013054 
013056 
013050 



000000 
000437 

105712 
001435 
122721 
001756 
005301 
122722 
001752 
000240 
032777 
001016 
104400 
013737 
104400 
000000 
' 104400 
013737 
104400 
01 1022 
1 1 1103 
114202 
104007 
005726 
000207 

005015 
015 

005015 
015 

005015 
015 

005015 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



012611 
011022 



044124 
000012 
042522 
042012 
046120 
053412 
046120 



1$: 
2$: 



020000 176414 



012564 
011020 



051105 

042503 
052101 
040505 
042510 
040505 



MSGO: 
MSG1 : 
MSG2: 
MSG3: 
MSG4: 

MSG5: 

.EVEN 

SAVRO: 

SAVR1 : 

SAVR2: 

SAVR3: 

SAVR4: 

SAVR5: 

delay: 

back: 

stop: 




TESTDX 

(R2) 

TESTDX 

#177, 

SCAN4 

R1 

#177, 

SCAN4 



(R1) + 



(R2)4 



#BIT13,®SWR 

DERR 

,MSG2 

IRDA, RDAX 



,MSG3 
IXDA, 



;BR IF YES 

;IS IT FILL CHAR? 

■,BR IF YES 

; BACKUP 

;IS IT FILL? 

;BR IF YES 

;DATA ERROR 

; INHIBIT PRINTOUTS 

;BR IF YES 

;<15><12>RECEIVE0 DATA » <15><12> 

; SETUP DATA ADRESS 

; PRINT RECEIVED DATA 

; RECEIVED DATA ADDR. 

;<15><12>DATA SHOULD BE<15><12> 

•.SETUP ADDR. 

; PRINT GOOD DATA 



.WORD 
BR 

TSTB 

BEO 

CMPB 

BEO 

DEC 

CMPB 

BEO 

NOP 

BIT 

BNE 

TYPE 

MOV 

TYPE 



TYPE 

MOV 

TYPE 

IXDA 

MOVB 

MOVB 

HLT+7 

TST 

RTS 

.ASCIZ <15><12>/THERE WAS A RECEIVER ERROR. REGISTER (SEL 2) »/ 

.ASCIZ <15><12> 

•ASCIZ <15><12>/RECEIVED DATA = /<15><12> 

.ASCIZ <15><12>/DATA SHOULD BE/<15><12> 

.ASCII <15><12>/PLEASE MAKE CONNECTION (DIAL HU.'.BER) . / 

.ASCIZ <15><12>/WHEN CONNECTION COMPLETE; HIT CONTINUE SWITCH. /<15><12> 

.ASCIZ <15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER) ./<15><12> 













(R1),R3 ; SETUP XMIT DATA 
-(R2),R2 jSETUP RCV DATA 

;DATA ERROR HALT 
(SP)+ ;POP STACK 

PC ; RETURN FROM SUB/ROUT 
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945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
953 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
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SEP 0020 
SEO 0020 



013062 
013062 
013066 
013070 
013074 
013102 
0131 10 
0131 12 
0131 16 
013120 
013124 
013132 
013136 
013142 
013144 
013150 
013152 
013156 
013164 
013166 
013172 
013174 
013200 
013204 

013206 
013212 
013214 
013222 
013224 
013226 
013232 
013240 
013242 
013244 
013250 
013252 
013256 
013260 
013264 

013266 
013272 
013274 
013300 
013306 
013314 
013316 
013322 
013324 
013330 
013336 



005737 
001416 
005037 
012737 
062737 
001374 
005337 
001371 
005037 
013737 
052714 
005737 
001005 
104400 
000000 
005137 
032737 
001003 
032714 
001375 
052714 
032714 
001430 

032714 
001017 
023727 
103771 
01 1402 
016403 
032777 
001001 
104002 
005037 
000756 
005737 
001403 
032714 
001775 

005737 
001416 
005037 
012737 
062737 
001374 
005337 
001371 
005037 
032737 
001415 



********************************* 
INITIALIZE TRANSMIT SUBROUTINE 



)jl « « « « « « « 1|> « « « « 



«i9i.4<i|ii4i4i>)i<ti««««ii<>0 



013534 
000007 
000001 

013536 

013054 
011022 
000002 
013060 

012634 

013060 
000001 



000004 
000002 



020000 
011032 



000004 
010000 



011032 
011016 
010000 

011024 

013534 
000030 
000001 



011024 
000001 



013536 
013534 



011070 1$: 



011014 2$: 



1$: 
2$: 
3$: 



013536 
013534 



011014 2$: 



TST 

BEO 

CLR 

MOV 

ADD 

BNE 

DEC 

BNE 

CLR 

MOV 

BIS 

TST 

BNE 

TYPE 

HALT 

COM 

BIT 

BNE 

BIT 

BNE 

BIS 

BIT 

BEO 

BIT 

BNE 

CMP 

BLO 

MOV 

MOV 

BIT 

BNE 

HLT+2 

CLR 

BR 

TST 

BEO 

BIT 

BEO 

TST 
BEO 
CLR 
MOV 
ADD 
BNE 
DEC 
BNE 
CLR 
BIT 
BEO 



DELAY 

1$ 

TEMPI 

#7,TEMP2 

#1 , TEMPI 

.-6 

TEMP2 

.-14 

DELAY 

IXDA, 

#DTR,®RCSR 

STOP 

2$ 

,MSG4 

STOP 



; IF SW04=1 & SW14=0 WAIT BEFORE TURINING ON TX 
;N0 GO AHEAD AND TURN ON TX 
; PREPARE FOR DELAY 



•.INCREMENT DELAY. 



XDA 



'.ZERO POINTER. 

; SETUP XMIT DATA ADDR. 

;SET REOUEST TO SEND 



#FULL . DUPLEX , PARAM2 ; FULL DUPLEX? 



3$ 

#10000,@RCSR 

.-4 

#ROTS,@RCSR 

#DTR, @RCSR 

CTSOK 



#36 



R2 



.BR IF YES 
JCARRIER UP? 
;BR IF YES 

;IS THIS A DL11-E? 
;BR IF NO 

;IS CLEAR TO SEND SET? 

;BR IF YES 

;30 SECS ELASPED? 

;BR IF NO 

;SETUP RCV CSR 

JSETUP XMIT CSR 

; INHIBIT PRINTOUTS? 

;BR IF YES 

;PRINTOUT 'WAITING TO XMIT' 

; RESET TIMER 

;WAIT SOiviE iviOftc 

; STANDARD MODEM? 

;IF NO, BR. 

;IS CARRIER UP? 

;BR IF NO 

; CONNECT ION JUST MADE? 

;BR IF NO 

;YES PREPARE FOR DELAY 

; INCREMENT DELAY 



;CLEAR DELAY FLAG 



#CTS, @RCSR 

2$ 

TIME, 

CTSW 

@RCSR, 

XCSR(R4),R3 

#SW12,®SWR 

1$ 

TIME 

CISW 

PARAM3 

CTSOK 

#10000,g>RCSR 

3$ 

SETTLE 

2$ 

TEMPI 

#14*2,TEMP2 

#1, TEMPI 

.-6 

TEMP2 

.-14 

SETTLE 

#FULL. DUPLEX, PARAM2; FULL DUPLEX? 

1$ ;BR IF NO 



;;++D 
;;++D 
; ;++D 
j;++D 



CIDLODO 0L11 ITIP QVIBLAY 
eiSLQO.PII Sa^MAH-Ti litis 



MkCiM lOAMOii) iS"MAR-?S ISiSS PAQi gg 



119 0S31 
§19 6Si1 



10©1 
1002 
tO03 
1004 
1O0i 
1008 
1007 
1008 
1009 
1010 
1011 
lOia 

ieii 

1014 
1011 
101S 

101? 

101S 
,1011 
1020 
10§1 

loss 

1023 
1024 
102S 
lOSi 
1027 
102B 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
103S 
1037 
1038 
1039 
1040 



013340 032700 §00004 

013344 0ei4lg 

013345 012737 177777 
013314 0Sa7S4 000109 
013362 000001 
0133S4 001737 01iS49 
01,3370 O0137S 
013372 eSi7S4 ©00100 
013400 000207 



013402 
013401 
013410 
013414 
013420 
013423 
013434 
013442 
013444 
0134S0 
013452 
01345S 
013432 
013464 
013472 
013S00 
013503 
013512 
013516 
013522 
013526 
013532 



001717 
001012 
012714 
104400 
012737 
01 3737 
032737 
001410 
032700 
001403 
00S037 
005237 
001375 
01S737 
013737 
012737 
042700 
005037 
005037 
005764 
052714 
000207 



013534 000000 

013535 000000 
013540 000000 
013542 OUOOOO 



01i0§3 

000003 
0127SS 
177777 
177777 
000001 

000004 

013534 
013534 

177777 
0110SO 
001000 
040000 
011054 
011056 
O0OOOS 
000143 



013542 
000004 



000004 lis 



IIT 
§19 
MOV 

ei§ 

WAIT 

TIT 

SNI 

BIS 

HTS 



4'KL§,MQ£}| 
II 

^'•I.TRNFl.Q 
#TIi,XCSR(R4) 



I XLS MQDi? 

;5R IF NO 

HIT FLAa 

iSiT INTERUPT ENASLI 



SNCPLQ j FIRST CHAR RiCIIVED YIT? 
."4 |§R IF NO 

#TIi, KeSR(R4)!ilT XMIT INTERRUPT INASLI 
PC liXIT FROM SUSROUTINi 



011024 
OlSOiO 
011014 



013540 
011065 
011064 



311 



I « 4l « $ « !» SI « fH «i i«l 

! INIT 

STARTRl TST 
SNg 
SIS 
TYPE 
MOV 
MOV 
ilT 
SEQ 
ilT 
SEQ 
CLR 
INC 
5NE 
MOV 
MOV 
MOV 
5IC 
CLR 
CLR 
TST 
BIS 
RTS 

TEMPI J 

TEMP2! 

SNCFLQ: 

TRNFLas 



lALIII RiCilViR SUSROUTINi 

STOP j FIRST TIMi HiRi? 

IS liR IF NO 

<S'DTR,iRCSR iSIT DTR 

iMSa§ {MAKE CONNECTION 

^-1, SETTLE jYiS SIT DILAY FLAQ 

i|("1,ST0P 

(HFULL . DUPLEX , PARAM2 1 FULL DUPiiX? 

31 ISR IF NO 

#XL§,MODI I XLS MODI? 

3$ ;BR IF NO 

TEMPI {START DELAY 

TEMPI 

.-4 

d'-l, SNCFLQ 

IRDA, RDA 

(f^OQO, RCC 

#RFLQ,STAT 

ERCSR 

ERD5R 

RBUF{R4) 

#RIE+DTR+DIE4-RE,@RCSR;SET INTERRUPT ENABLES 

PC JEXIT FROM SUBROUTINE 



}SET FLAQ 

{SETUP RCV DATA ADDR 

{SETUP RCV CHAR COUNT 

{CLEAR RFLQ 

{RESET ERROR RECORDS 
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1041 
1042 








1043 








1044 


013544 


000240 




1045 


013546 


127737 


175316 011040 


1046 


013554 


001010 




1047 


013556 


052700 


100000 


1048 


013562 


042714 


000004 


1049 


013566 


042764 


000100 000004 


1050 


013574 


000417 




1051 








1052 


013576 


117764 


175266 000006 


1053 


013604 


032777 


000100 175232 


1054 


013612 


001406 




1055 


013614 


105777 


175256 


1056 


013620 


100003 




1057 


013622 


117777 


175242 17S2S0 


1058 


013630 






1059 


013630 


005237 


011070 


1060 


013634 


005737 


013542 


1061 


013640 


001403 




1062 


013642 


042764 


000100 000004 


1063 


013650 


005037 


011032 


1064 


013654 


005037 


013542 


1065 


013660 


000002 




1066 








1067 








1068 








1069. 


013662 


00^240 




1070 


013664 


105714 




1071 


013666 


100055 




1072 


013670 


116401 


000002 


1073 


P13674 


142701 


000200 


1074 


013700 


110177 


175162 


1075 


013704 


032777 


000040 17S132 


1076 


013712 


001405 




1077 


013714 


105777 


175158 


1078 


013720 


100002 




1079 


013722 


110177 


175152 


10B0 


013726 






1061 


013726 


005237 


011066 


1062 


013732 


105077 


175130 


1083 


013736 


005337 


0U064 


1084 


013742 


001010 




1085 


013744 


042714 


000100 


1066 


013750 


011402 




1087 


013752 


016403 


000004 


1088 


013756 


104006 




1069 


013760 


004737 


013402 


1090 








1091 


013764 


123701 


011041 


1092 


013770 


001004 




1093 


013772 


042714 


000140 


1094 


013776 


052700 


040000 


1095 


014002 


005764 


000002 


109S 


014006 


1O0OOS 
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TRANSMIT INTERRUPT SERVICE ROUTNE 
XISR: NOP 



SEQ 0022 
SEQ 0022 



CMPB 

BNE 

BIS 

BIC 

BIC 

BR 

MOVB 

BIT 

BEO 

TSTB 

BPL 

MOVB 



fXDA.TX.TERM 
XISR1 



NOXMON! 

INC 
XISR25 TST 

BEQ 

BIC 

CLR 

CLR 

RTI 

« « « « ^ « « !» 1(1 41 Di i«i 4i 

RECEIVE 

« « )(r 41 Ki « « Di ifi Hi ,(1 ^ ^ U, ; 

RISR! NOP 



#XFLG, 
^RQTS, 
#TIE, 
XISR2 

@XDA, 

#100, 

NOXMON 

f»TPS 

NOXMON 

@XDA, 



STAT 
@RCSR 



{FINISHED XMITTING? 
{BR IF NO 

{SET XMIT COMPLETE FLAG 
{RESET REQUEST TO SEND 



XCSR(R4) {RESET XMIT INTERRUPT ENABLE 



XBUF(R4){XMIT NEXT CHAR. 
@SWR {MONITOR OUTPUT? 

{BR IF NO 

{IS TTY AVAILABLE 

{BR IF NO 
@TPB {TYPE THE CHAR 



IS: 



XDA {INCRMENT ADDRESS 

TRNFLQ {FIRST CHAR? 

1$ {BR IF NO 

(l'TIE,XCSR(R4) {CLEAR INTERUPT ENABLE 

TIME {RESET TIMER 

TRNFLQ {CLEAR FLAG 

{RETURN FROM INTERRUPT 

INTERRUPT SERVICE ROUTINE 



1$: 



TSTB 

BPL 

MOVB 

BICB 

MOVB 

BIT 

BEQ 

TSTB 

BPL 

MOVB 

INC 

CLRB 

DEC 

BNE 

BIC 

MOV 

MOV 

HLT+6 

USR 

CMPB 

BNE 

BIC 

BIS 

TST 

BPL 



f)RCSR 

RISR2 

RBUF(R4),R1 

/l^200, R1 

R1, 

#40, 

NORMON 

#TPS 

NORMON 

Rif 



@RDA 
f>SWR 



@TPB 

RDA 

@RDA 

RCC 

IS 

#RIE, @RCSR 

®RCSR, R2 

XCSR(R4),R3 

PCSTARTR 

RX.TERM,R1 

RISR1 

#RIE+DIE,®RCSR 

#RFLQ, STAT 

RBUF{R4) 

RISR2 



{IS RECEIVER DONE BIT SET 

{BR IF NO 

{STORE CHAR. 

{STRIP A BIT 

{MOVE CHAR TO INBUF 

{MONITOR INPUT? 

{BR IF NO 

{IS TTY AVAILABLE? 

{BR IF NO 

{TYPS THE CHAR 

{BUMP POINTER 
{CLEAR NEXT CHAR POSITION 
{DECREMENT CHAR. COUNTER 
{BR IF BUFFER NOT FULL 
{RESET INTERRUPT ENAB 
{SETUP RCV CSR 
{SETUP XMIT CSR 
{RECEIVER BUFFER FULL 
{INITIALIZE RECEIVER 

{IS IT LINE FEED? 

{BR IF NO 

{DISABLE INTERRUPTS 

{SET RCVR COMPLETE FLAQ 

{IS THERE A DATA ERROR 

{BR IF NO 
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24 
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1097 


014010 


01 1437 


011054 






MOV 


@RCSR, ERCSR 


;SAVE RCSR 


1098 


014014 


016437 


000002 


011056 




MOV 


RBUF(R4) .ERDBR 


;SAVE RDBR 


1099 


014022 


005714 






RISR2: 


TST 


@RCSR 


;IS THERE A DATA SET S' 


1100 


014024 


100004 








BPL 


RISR3 


•,BR IF NO 


1101 


014026 


01 1437 


011060 






MOV 


@RCSR, DSSTAT 


JSAVE STATUS 


1102 


014032 


052700 


020000 






BIS 


#DSFLG, STAT 


;SET FLAG 


1103 


014036 


005037 


013540 




RISR3: 


CLR 


SNCFLG 


; CLEAR FLAG 


1104 


014042 


605037 


011032 






CLR 


TIME 


; RESET TIMER 


1105 


014046 


000002 








RTI 




; RETURN FROM INTERRUPT 


1106 



















SEQ 0023 
SEQ 0023 
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SEQ 0024 
SEQ 0024 



BA 


011004 


587# 


646 








BACK 


013056 


707* 


735* 


770* 


850* 


881 


BITO = 


000001 


581# 










Bin « 


000002 


581# 










BIT10 = 


002000 


581# 










BIT11 = 


004000 


581 /y 










BIT12 = 


010000 


581# 










BIT13 = 


020000 


581/^ 


61 6# 


892 


919 




BIT14 = 


040000 


581 # 










BIT15 = 


100000 


581# 










BIT2 = 


000004 


581# 










BITS = 


000010 


581# 










BIT4 = 


000020 


581 # 










BITS = 


000040 


581 )S^ 










B1T6 = 


000100 


581# 










BIT7 = 


000200 


581(y 










BITS = 


000400 


581# 










BIT9 = 


001000 


581# 










B2016 


011030 


597# 


895 








CD 


010000 


581 # 










CIS 


020000 


581# 


974 








CTSOK 


013266 


972 


986 


990# 






CTSW 


013206 


974# 


977 


984 






DELAY 


013054 


659* 


879* 


941# 


950 


958* 


DERR 


012466 


920 


929# 








DIE 


000040 


581# 


1034 


1093 






DISPLA 


011046 


60 7# 










DL11 


01 1000 


586ff 










DSC 


100000 


581# 










DSFLG = 


020000 


581 (^ 


615# 


1102 






DSSTAT 


011060 


622# 


1101* 








DTR 


000002 


581 # 


960 


971 


1016 


1034 


ENTER 


012226 


863 


872# 








EOP 


012140 


708 


736 


771 


851 


858# 


ER » 


100000 


581 # 










ERCSR 


011054 


620jI^ 


1031* 


1097* 






ERDBR 


011056 


621# 


890 


1032* 


1098* 




FE 


.020000 


581 # 










FLAG 


011042 


eOSif 










FULL.D= 


000001 


634)^ 


810 


826 


831 


966 


GO 


011164 


658# 










ILB 


000010 


581# 


667 








IRDA 


011020 


593# 


774 


899 


922 


1028 


IXDA 


011022 


594# 


775 


898 


926 


928 


KBDIN a 


104416 


581# 


689 


720 


752 


809 


LOOP « 


000020 


581 # 


705 


733 


768 


848 


MSGO 


012500 


894 


935# 








MSG1 


012561 


897 


935# 








MSG2 


012564 


921 


935# 








MSG3 


012611 


925 


935# 








MSG4 


012634 


935lf 


963 








MSG5 


012766 


gasiy 


1017 








NODAT s 


000200 


581# 


701 


764 


845 




NORMON 


013726 


1076 


1078 


1080^ 






NOXMON 


013630 


1054 


1056 


1058# 






OR a 


040000 


581 # 
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liiiiiif 



OWI 


' 000002 


581# 


664 






owo 


000001 


581 # 


661 






PARAM1 


011012 


590/? 


647 






PARAM2 


011014 


Bdiif 


648 


810 


826 


PARAM3 


011016 


592# 


985 






PE 


010000 


581 1^ 








PRIOR 


011010 


589# 


643 


645 




• PRTYO ^ 


000000 , 


581# 








PRTY1 = 


000040 


581# 








PRTY2 = 


000100 


581# 








PRTY3 = 


000140 


581 # 








PRTV4 a 


000200 


581# 








PRTY5 a 


000240 


58U 








PRTY6 ^ 


000300 


581 # 








PRTY7 = 


000340 


581# 


859 






OTPIE 


012276 


860« 


861* 


880 


882* 


RA = 


004000 


581/y 








RBUF » 


000002 ■ 


581* 


1033 


1072 


1095 


RCC 


0110S4 


625# 


1029* 


1083* 




rd' 


000200 


58 1# 








ROA 


011066 


626# 


1028* 


1074* 


1081* 


RDAX 


01244S 


922« 


924* 






RE 


000001 


581# 


1034 






RFLG » 


040000 


614# 


691 


704 


755 


RI a 


040000 


581* 








RIE 


000100 


581# 


1034 


1085 


1093 


RISR 


013662 


642 


1069* 






RISR1 


014002 . 


1092 


1095* 






RISR2 


014022 


•1071 


1096 


1099* 




RISR3 


014036 


1100 


1103* 






RIV 


011006 


588# 


641 






ROTS «s 


000004 


581 « 


970 


1048 




RWAIT s 


104410 


581# 








RX.TER 


011041 


603# 


1091 






SAVRO 


013040 


864* 


873 


935* 




SAVR1 


013042 


865* 


874 


936* 




SAVR2 


013044 


866* 


875 


937* 




SAVR3 


013046 


867* 


876 


938* 




SAVR4 


013050 


868* 


877 


939* 




SAVR5 


013052 


869* 


878 


940* 




SCAN4 


012344 


900* 


901 


914 


917 


SCAN5 


012420 


918# 








SETTLE 


011024 


595(^ 


990 


998* 


1018* 


SNCFLG 


013540 


1006 


1027* 


1039* 


1103* 


SRCSR 


011052 


619# 








SRD 


002000 


581* 








START 


011102 


600 


638* 






STARTR 


013402 


690 


753 


812 


829 


STARTX 


013062 


721 


784 


813 


949* 


STD a 


000010 


581# 








STOP 


013060 


660* 


943* 


961 


965* 


STPS ^ 


104414 


581 # 


859 






SWR 


011044 


606* 
1053 


639 
1075 


701 


705 


SW12 a 


010000 


581 # 


980 






SXCSR 


011050 


618* 
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TEMPI 


013534 


TEMP2 


013536 


TESTD 


012300 


TESTDX 


012474 


TIE a 


000100 


TIME 


011032 


TKB 


011074 


TKS 


011072 


TPB 


011100 


TPS 


011076 


TR 


000200 


TRNFLG 


013542 


TSTDAT 


012334 


TX.TER 


011040 


TYPE = 


104400 


XBUF SB 


000006 


XCC 


011062 


XCSR ^ 


000004 


XOA 


011070 


XFLG = 


100000 


XISR 


013544 


XISR1 


013576 


XISR2 


013634 


XLB 


000004 


XWAIT a 


104412 


$ILB 


011460 


SOWI 


011254 


$0W0 


'011362 


$XLB 


011710 


= 


014050 



952* 


954* 


992* 


994* 


1024* 


1025* 


1037* 








953* 


956* 


993* 


996* 


1038* 












703 


766 


847 


890* 














903 


909 


912 


932* 














581* 


861 


862 


1004 


1008 


1049 


1062 








598* 


658* 


693 


698* 


722* 


725 


730* 


754* 


757 


762* 


814* 


819 


824* 


835 


840* 


844* 


976 


983* 


1063* 


1104* 


630* 




















629* 




















632* 


1057* 


1079* 
















631* 


1055 


1077 
















581* 




















1003* 


1040* 


1060 


1064* 














891 


893 


898* 
















601* 


902 


1045 
















581* 


894 


897 


907 


921 


923 


925 


927 


963 


1017 


581* 


1052* 


















624* 




















581* 


650* 


696 


728 


760 


790 


822 


838 


860 


862* 


1008* 


1049* 


1062* 


1087 














627* 


776* 


959* 


1045 


1052 


1057 


1059* 








613* 


723 


732 


785 


794 


815 


828 


833 


842 


1047 


644 


1044* 


















1046 


1052* 


















1050 


1060* 


















581* 


670 


1001 


1022 














581* 




















669 


752* 


795 
















666 


689* 


709 
















663 


720* 


737 
















672 


809* 


849 


850 














585* 


674 


778 


926* 


955 


957 


969 


995 


997 


1007 



. ABS. 014050 



ERRORS DETECTED: 

DSK2 : CZDLOD , DSKZ : CZDLOD. SEQ«DSKZ : ITEP1 .MAC , DSKZ : CZDLOD. P1 1 
RUN-TIME: 3 5 .3 SECONDS 
RUN-TIME RATIO: 65/9^7.1 
CORE used: 16K (31 PAGES) 

DOCUMENT PAGES: 26 



